IDENTIFICATION DIVISION.
       PROGRAM-ID. AFFICHAGE-LIGNE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NOM     PIC X(10) VALUE "DUPONT".
       01 PRENOM  PIC X(10) VALUE "ALAIN".

       PROCEDURE DIVISION.


           DISPLAY NOM NO ADVANCING.
           DISPLAY " " PRENOM.
           STOP RUN.